getDataWithSQL <-
function(connectionString, SQLString, SQLite = TRUE)
{
    if(SQLite==TRUE) 
    {
        driver<-dbDriver("SQLite")                                      
        con <- dbConnect(driver, dbname=connectionString)
        return(dbGetQuery(con, SQLString))
    }      
}

